home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2004 September / maximum-cd-2004-09.iso / Software / Apps / CorelDRAWGraphicsSuite12.exe / CorelDRAW Graphics Suite 12.msi / Binary.NewBinary36 < prev    next >
Encoding:
Text File  |  2004-01-07  |  2.9 KB  |  112 lines
  1. Dim nFeaturesIncluded:nFeaturesIncluded = 0
  2.  
  3. If (IsFeatureExists("EN") = "1") Then
  4.     nFeaturesIncluded = nFeaturesIncluded + 1
  5. End If
  6. If (IsFeatureExists("DE") = "1") Then
  7.     nFeaturesIncluded = nFeaturesIncluded + 1
  8. End If
  9. If (IsFeatureExists("FR") = "1") Then
  10.     nFeaturesIncluded = nFeaturesIncluded + 1
  11. End If
  12. If (IsFeatureExists("ES") = "1") Then
  13.     nFeaturesIncluded = nFeaturesIncluded + 1
  14. End If
  15. If (IsFeatureExists("IT") = "1") Then
  16.     nFeaturesIncluded = nFeaturesIncluded + 1
  17. End If
  18. If (IsFeatureExists("BP") = "1") Then
  19.     nFeaturesIncluded = nFeaturesIncluded + 1
  20. End If
  21. If (IsFeatureExists("JP") = "1") Then
  22.     nFeaturesIncluded = nFeaturesIncluded + 1
  23. End If
  24. If (IsFeatureExists("CZ") = "1") Then
  25.     nFeaturesIncluded = nFeaturesIncluded + 1
  26. End If
  27. If (IsFeatureExists("CS") = "1") Then
  28.     nFeaturesIncluded = nFeaturesIncluded + 1
  29. End If
  30. If (IsFeatureExists("CT") = "1") Then
  31.     nFeaturesIncluded = nFeaturesIncluded + 1
  32. End If
  33. If (IsFeatureExists("KO") = "1") Then
  34.     nFeaturesIncluded = nFeaturesIncluded + 1
  35. End If
  36. If (IsFeatureExists("NL") = "1") Then
  37.     nFeaturesIncluded = nFeaturesIncluded + 1
  38. End If
  39. If (IsFeatureExists("PL") = "1") Then
  40.     nFeaturesIncluded = nFeaturesIncluded + 1
  41. End If
  42.  
  43. If (nFeaturesIncluded > 1) Then
  44.     Session.Property("ShowLanguagePackDialog") = "1"
  45. Else
  46.     If (IsFeatureExists("EN") = "1") Then
  47.         Session.Property("ENLANG") = "1"
  48.     End If
  49.     If (IsFeatureExists("DE") = "1") Then
  50.         Session.Property("DELANG") = "1"
  51.     End If
  52.     If (IsFeatureExists("FR") = "1") Then
  53.         Session.Property("FRLANG") = "1"
  54.     End If
  55.     If (IsFeatureExists("ES") = "1") Then
  56.         Session.Property("ESLANG") = "1"
  57.     End If
  58.     If (IsFeatureExists("IT") = "1") Then
  59.         Session.Property("ITLANG") = "1"
  60.     End If
  61.     If (IsFeatureExists("BP") = "1") Then
  62.         Session.Property("BPLANG") = "1"
  63.     End If
  64.     If (IsFeatureExists("JP") = "1") Then
  65.         Session.Property("JPLANG") = "1"
  66.     End If
  67.     If (IsFeatureExists("CZ") = "1") Then
  68.         Session.Property("CZLANG") = "1"
  69.     End If
  70.     If (IsFeatureExists("CS") = "1") Then
  71.         Session.Property("CSLANG") = "1"
  72.     End If
  73.     If (IsFeatureExists("CT") = "1") Then
  74.         Session.Property("CTLANG") = "1"
  75.     End If
  76.     If (IsFeatureExists("KO") = "1") Then
  77.         Session.Property("KOLANG") = "1"
  78.     End If
  79.     If (IsFeatureExists("NL") = "1") Then
  80.         Session.Property("NLLANG") = "1"
  81.     End If
  82.     If (IsFeatureExists("PL") = "1") Then
  83.         Session.Property("PLLANG") = "1"
  84.     End If
  85. End If    
  86.  
  87.  
  88.  
  89.  
  90. '///////////////////////////////////////////////////////////////////////////
  91. Function IsFeatureExists(sFeature)
  92. On Error Resume Next
  93.  
  94.     Dim objDB: Set objDB = Session.Database
  95.  
  96.     Dim sQuery: sQuery = "SELECT * FROM `Feature` WHERE `Feature`.`Feature` = '" & sFeature & "'"
  97.  
  98.     Dim objView: Set objView = objDB.OpenView(sQuery)
  99.     objView.Execute
  100.  
  101.     Dim objRec: Set objRec = objView.Fetch
  102.  
  103.     If (objRec Is Nothing) Then
  104.         ' not there
  105.         IsFeatureExists = 0
  106.     Else
  107.         ' there
  108.         IsFeatureExists = "1"
  109.     End If
  110.  
  111. End Function
  112.